home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / BARNET / FREENET / SMITH / FN114 / !FreeNews_!Run < prev    next >
Encoding:
Text File  |  1997-04-24  |  2.5 KB  |  64 lines
  1. |
  2. | !Run file for FreeNews 1.13
  3. | © 1997 John Smith and Neil Clegg.
  4. |
  5.  
  6.  
  7. Set FreeNews$Dir <Obey$Dir>
  8. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  9.  
  10. RMENSURE FilterManager 0.09 RMLoad System:modules.FilterMgr
  11. RMENSURE FilterManager 0.09 Error You Need filter manager 0.09 or later
  12.  
  13. |
  14. | The following line may cause the dreaded Drawfile bug: "nager:Sprites22". If it
  15. | does, you must ensure that the latest copy of the Drawfile module is in System:Modules,
  16. | and that older versions are not around. Anywhere.
  17. |
  18. RMEnsure Toolbox 1.36 RMLoad System:modules.toolbox.toolbox
  19. RMEnsure Toolbox 1.36 Error You need Toolbox 1.36 or later to run !FreeNews
  20.  
  21. RMENSURE Window  0.00  RMLOAD System:modules.toolbox.window
  22. RMENSURE Window  1.17  ERROR You need window 1.17 or later to run !FreeNews
  23.  
  24. RMENSURE Menu  0.00  RMLOAD System:modules.toolbox.menu
  25. RMENSURE Menu  0.13  ERROR You need menu 0.13 or later to run !FreeNews
  26.  
  27. RMENSURE ProgInfo  0.00  RMLOAD System:modules.toolbox.proginfo
  28. RMENSURE Proginfo  0.00  ERROR You need proginfo to run !FreeNews
  29.  
  30. RMENSURE IconBar  0.00  RMLOAD System:modules.toolbox.IconBar
  31. RMENSURE IconBar  0.00  ERROR You need IconBar to run !FreeNews
  32.  
  33. WimpSlot -min 128K -max 228K
  34. IconSprites <FreeNews$Dir>.!Sprites
  35.  
  36. | Use our own outgoing dir. unless there's one already
  37. Unset FreeNews$MailFlag
  38. seteval xxx 0
  39. If "<Mail$Dir>" = "" then seteval xxx <xxx> + 1
  40. If "<NewsDir$Dir>" = "" then seteval xxx <xxx> + 1
  41. |If <xxx> > 0 Then Set FreeNews$MailFlag -nomaildir
  42.  
  43. |If ("<Mail$Dir>" = "") and ("<NewsDir$Dir>" = "") Then Set FreeNews$MailFlag -nomaildir
  44. |If "<Mail$Dir>" = "" Then Set Mail$Dir <FreeNews$Dir>.Outgoing
  45.  
  46. |
  47. | The following four lines should be redundant. Unfortunately, due to a problem in Acornet,
  48. | they are. Please delete them if you're not using Acornet.
  49. Set FreeNews$InetDB 1
  50. RMEnsure InetDB 0.00 Set FreeNews$InetDB 0
  51. If <FreeNews$InetDB> = 1 Then NSCache_flush
  52. If <FreeNews$InetDB> = 1 Then RMReInit InetDB
  53.  
  54. |
  55. | Ensure that the "Badmarker" directory is kept empty. This is filled by the
  56. | Newsbase transport. FreeNews needs to delete the individual files, and the
  57. | transport needs to check for their presence.
  58. |Remove <FreeNews$Dir>.Data.BadMarker.*        -- but *Remove doesn't like wildcards
  59. Remove <FreeNews$Dir>.Data.BadMarker.Wipe
  60. Create <FreeNews$Dir>.Data.BadMarker.Wipe 0
  61. Wipe <FreeNews$Dir>.Data.BadMarker.* ~CF~V
  62.  
  63. Syslogd_debug 1
  64. If "<FreeNews$MailFlag>" = "" then Run <FreeNews$Dir>.!RunImage %*0 else Run <FreeNews$Dir>.!RunImage -nomaildir %*0